requestchoice >NIL: TITLE "" BODY "This software requires V40.*NNot installing." GADGETS OK
quit
endif
if not exists installifnewer
requestchoice >NIL: TITLE "" BODY "You must CD to where this script resides.*NNot installing." GADGETS OK
quit
endif
echo >T:0 "0"
requestchoice >t:OKCancel TITLE "" BODY "SCSI-CD Software Installer.*NRequires a SCSI-2 CD-ROM Drive*NYou must know device name & unit (see Readme)*NWill Overwrite Devs/DosDrivers/CD0 if any*Nand update other system files.*NContinue?" GADGETS OK CANCEL
fileeq t:0 T:OKCancel >NIL:
IF WARN
requeststring >devs:cd.device.config TITLE "" BODY "Select SCSI Device Name" LABEL "Device:" DEFAULT "2nd.scsi.device"
IF NOT WARN
requestchoice >t:SCSIUnit TITLE "" BODY "Select SCSI ID of CD-ROM UNIT" GADGETS 0 1 2 3 4 5 6 7
requestchoice >t:OKCancel TITLE "" BODY "Select Volume or Location for nonvolatile drawer*NYou may wish to insert a uniquely named floppy NOW" GADGETS OK CANCEL
fileeq t:0 T:OKCancel >NIL:
IF WARN
lab tryagain
requestfile >t:NVDrawer DRAWER SYS: TITLE "Select Volume/Location for Nonvolatile" DRAWERSONLY SAVEMODE
assign oldcd{$$}: ""
cd `type t:NVDrawer`
if not exists nonvolatile
makedir nonvolatile
endif
cd oldcd{$$}:
assign oldcd{$$}:
;remove linefeed and quotes, add "nonvolatile" part of path